this is were my cool stuff goes
# A tibble: 6 x 4
ICAO LAT LON TZ
<chr> <dbl> <dbl> <chr>
1 EDDF 50.0 8.57 Europe/Berlin
2 EDDM 48.4 11.8 Europe/Berlin
3 EGKK 51.1 -0.190 Europe/London
4 EGLL 51.5 -0.462 Europe/London
5 EHAM 52.3 4.76 Europe/Amsterdam
6 EIDW 53.4 -6.27 Europe/Dublin ---
title: "Pan-European Performance Dashboard"
author: "PRU"
date: "`r format(Sys.time(), '%d %B, %Y')`"
output:
flexdashboard::flex_dashboard:
orientation: columns
theme: paper
#favicon: data-test/euctrl-logo-noname.png
logo: data-test/euctrl-logo-noname-hgt48.png
source_code: embed
---
```{r setup, include=FALSE}
library(flexdashboard)
library(readr)
library(dplyr)
library(leaflet)
library(DT) # interactive tables
library(crosstalk) # inter-widget interactivity
```
```{r}
apts <- read_csv("./data-test/airports.dat", col_names = FALSE) %>%
rename(ICAO = X6, LAT = X7, LON = X8, TZ = X12) %>%
select(ICAO, LAT, LON, TZ) %>%
filter(ICAO %in% c("EGLL","EGKK","EDDF","EDDM","EIDW","EHAM","LSZH","LFPG","LEMD"))
#develop without crosstalk: ds <- apts
ds <- SharedData$new(apts)
```
# Home {data-icon="fa-list"}
Column
-------------------------------------
### Overview
For more information contact PRU Support.
### Cool Datatable
```{r}
DT::datatable(
ds,
filter = "top",
extensions = "Scroller",
rownames = FALSE,
style = "bootstrap",
class = "compact",
width = "100%" #,
#options = list(deferRender = TRUE, scrollY = 300, scroller = TRUE)
)
```
Column
-----------------------------------------------------------------------
### Plot
this is were my cool stuff goes
```{r}
head(apts)
```
```{r}
mp <- leaflet() %>%
addTiles() %>%
# fitBounds(-127.44,24.05,-65.30,50.35) %>%
# addProviderTiles("Esri.WorldTopoMap") %>%
#throws error with crosstalk: addCircleMarkers(
addMarkers(apts$LON,
apts$LAT,
#circle-marker color = "red" #factor(apts$LON),
#circle-marker ,radius = 6
#circle-marker , fill = TRUE
#circle-marker , fillOpacity = 0.2
#circle-marker , opacity = 0.6
, label = paste("", apts$ICAO,"", sep = "")
#, popup='R Project'
,clusterOptions = markerClusterOptions()
)
#%>%
# addLegend("bottomleft",
# colors = c("orange","green", "red", "black"),
# labels = c("Cleanup in progress.",
# "Cleanup complete.",
# "Status unclear.",
# "No potential for radioactive contamination."),
# opacity = 0.8)
mp
```